﻿Public Class clsSentence
    Public CC As String = ""        'Coordinating conjunction
    Public RP As String = ""        'Particle
    Public CD As String = ""        'Cardinal number
    Public SYM As String = ""       'Symbol
    Public DT As String = ""        'Determiner
    Public strTO As String = ""     'To
    Public EX As String = ""        'Existential there         
    Public UH As String = ""        'Interjection
    Public FW As String = ""        'Foreign word             
    Public VB As String = ""        'Verb, base form
    Public strIN As String = ""     'Preposition/subordinate   
    Public VBD As String = ""       'Verb, past tense conjunction
    Public JJ As String = ""        'Adjective                 
    Public VBG As String = ""       'Verb, gerund/present participle
    Public JJR As String = ""       'Adjective, comparative   
    Public VBN As String = ""       'Verb, past participle
    Public JJS As String = ""       'Adjective, superlative    
    Public VBP As String = ""       'Verb, non-3rd ps. sing. present
    Public LS As String = ""        'List item marker          
    Public VBZ As String = ""       'Verb, 3rd ps. sing. present
    Public MD As String = ""        'Modal                     
    Public WDT As String = ""       'wh-determiner
    Public NN As String = ""        'Noun, singular, mass    
    Public WP As String = ""        'wh-pronoun
    Public NNP As String = ""       'Proper noun, singular    
    Public WP1 As String = ""       'Possessive wh-pronoun
    Public NNPS As String = ""      'Proper noun, plural      
    Public WRB As String = ""       'wh-adverb
    Public NNS As String = ""       'Noun, plural            	
    Public PDT As String = ""       'Predeterminer            
    Public POS As String = ""       'Possessive ending         
    Public PRP As String = ""       'Personal pronoun          
    Public PRP1 As String = ""      'Possessive pronoun        
    Public RB As String = ""        'Adverb                    
    Public RBR As String = ""       'Adverb, comparative       
    Public RBS As String = ""       'Adverb, superlative 

    Public Sub Fill(ByVal PartOfSpeech As String, ByVal Value As String)
        Select Case PartOfSpeech.ToString
            Case "CC"
                CC = Value
            Case "RP"
                RP = Value
            Case "CD"
                CD = Value
            Case "SYM"
                SYM = Value
            Case "DT"
                DT = Value
            Case "TO"
                strTO = Value
            Case "EX"
                EX = Value
            Case "UH"
                UH = Value
            Case "FW"
                FW = Value
            Case "VB"
                VB = Value
            Case "IN"
                strIN = Value
            Case "VBD"
                VBD = Value
            Case "JJ"
                JJ = Value
            Case "VBG"
                VBG = Value
            Case "JJR"
                JJR = Value
            Case "VBN"
                VBN = Value
            Case "JJS"
                JJS = Value
            Case "VBP"
                VBP = Value
            Case "LS"
                LS = Value
            Case "VBZ"
                VBZ = Value
            Case "MD"
                MD = Value
            Case "WDT"
                WDT = Value
            Case "NN"
                NN = Value
            Case "WP"
                WP = Value
            Case "NNP"
                NNP = Value
            Case "WP1"
                WP1 = Value
            Case "NNPS"
                NNPS = Value
            Case "WRB"
                WRB = Value
            Case "NNS"
                NNS = Value
            Case "PDT"
                PDT = Value
            Case "POS"
                POS = Value
            Case "PRP"
                PRP = Value
            Case "PRP1"
                PRP1 = Value
            Case "RB"
                RB = Value
            Case "RBR"
                RBR = Value
            Case "RBS"
                RBS = Value
        End Select
    End Sub
End Class
